use Flap qw/-m -s/;
use Encode;

sub{
    my $util = shift;
    my $r = ref $_[0] ? shift : do{ \(my $s = shift) };
    my $u = Encode::is_utf8($$r);
    Encode::_utf8_on($$r) if !$u;
    $$r =~ tr/\x{00A5}\x{2014}\x{203E}\x{2225}\x{FF0D}\x{FF5E}\x{FFE0}\x{FFE1}\x{FFE2}/\x{FFE5}\x{2015}\x{FFE3}\x{2016}\x{2212}\x{301C}\x{00A2}\x{00A3}\x{00AC}/;
    Encode::_utf8_off($$r) if !$u;
    $$r;
};
